home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00025_Dialog.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  3.5 KB  |  138 lines
  1. --
  2. -- Dialog
  3. --
  4.  
  5. property ancestor
  6.  
  7. property dialogWindow
  8.  
  9. on new me
  10.   -- set constants:
  11.   
  12.   -- initialize the ancestor:
  13.   set ancestor = new (script "HelpMIAW")
  14.   
  15.   -- do other initializations:
  16.   initDialogWin (me, the pathname)
  17.   
  18.   return me
  19. end
  20.  
  21.  
  22. on destruct me
  23.   
  24.   if objectP (ancestor) then destruct (ancestor)
  25.   set ancestor = 0
  26. end
  27.  
  28.  
  29. on initDialogWin me, thePath
  30.   -- this will need the path to the dialog window file
  31.   -- for now
  32.   
  33.   if not thePath then set thePath = the pathname
  34.   
  35.   set dialogWindow = window "dialog"
  36.   set the fileName of dialogWindow = thePath & "dialog"
  37.   set the modal of dialogWindow = 1
  38.   set the windowType of dialogWindow = 3
  39.   
  40.   moveToBack dialogWindow
  41.   
  42.   put "I have init'ed the window..."
  43. end
  44.  
  45.  
  46. on openDialogWin me, whatFrame
  47.   if the windowList <> [] then
  48.     -- tell the stage to pause
  49.     sound stop 1
  50.     --sound stop 2
  51.     --puppetSound 0
  52.     updateStage
  53.     set the rect of dialogWindow = centerWindowOnStage (me, the rect of dialogWindow)
  54.     tell dialogWindow
  55.       go to frame whatFrame
  56.     end tell
  57.     open dialogWindow
  58.     updateStage
  59.   else
  60.     alert "The dialog window is not initialized..."
  61.   end if  
  62. end
  63.  
  64.  
  65. on closeDialogWin me
  66.   if the windowList <> [] then
  67.     set the rect of dialogWindow = throwWindowWayOffStage (me, the rect of dialogWindow)
  68.     tell the stage 
  69.       updateStage
  70.     end tell
  71.     tell dialogWindow
  72.       sound stop 1
  73.       puppetSound 0
  74.       --sound stop 2
  75.       go to frame "pause"
  76.     end tell
  77.     close dialogWindow
  78.     tell the stage to go to the frame
  79.   else
  80.     alert "The dialog window is not initialized..."
  81.   end if
  82. end
  83.  
  84.  
  85. on throwWindowWayOffStage me, theRect
  86.   set newRect = rect(0,0,0,0)
  87.   
  88.   -- we are going to start with the MIAWS way off the stage
  89.   set newRect = rect(0,0,0,0)
  90.   
  91.   set stageRect = rect(the stageLeft, the stageTop, the stageRight, the stageBottom)
  92.   set stageWidth = the right of stageRect - the left of stageRect
  93.   set stageHeight = the bottom of stageRect - the top of stageRect
  94.   
  95.   -- take the passed rect, and figure out the offsets
  96.   set theWidth = the right of theRect - the left of theRect
  97.   set theHeight = the bottom of theRect - the top of theRect
  98.   
  99.   set offsetH = ((stageWidth - theWidth)/2)
  100.   set offsetV = ((stageHeight - theHeight)/2)
  101.   
  102.   set the left of newRect = the left of stageRect + offsetH
  103.   set the top of newRect = the top of stageRect + offsetV
  104.   set the right of newRect = the left of newRect + theWidth
  105.   set the bottom of newRect = the top of newRect + theHeight
  106.   -- the window is now centered
  107.   
  108.   -- now we will push the window all the way up off the top by about 10000 pixels
  109.   -- just to be safe
  110.   set the top of newRect = the top of newRect - 10000
  111.   set the bottom of newRect = the bottom of newRect -10000
  112.   
  113.   return newRect
  114. end
  115.  
  116.  
  117. on centerWindowOnStage me, theRect
  118.   set newRect = rect(0,0,0,0)
  119.   
  120.   set stageRect = rect(the stageLeft, the stageTop, the stageRight, the stageBottom)
  121.   set stageWidth = the right of stageRect - the left of stageRect
  122.   set stageHeight = the bottom of stageRect - the top of stageRect
  123.   
  124.   -- take the passed rect, and figure out the offsets
  125.   set theWidth = the right of theRect - the left of theRect
  126.   set theHeight = the bottom of theRect - the top of theRect
  127.   
  128.   set offsetH = ((stageWidth - theWidth)/2)
  129.   set offsetV = ((stageHeight - theHeight)/2)
  130.   
  131.   set the left of newRect = the left of stageRect + offsetH
  132.   set the top of newRect = the top of stageRect + offsetV
  133.   set the right of newRect = the left of newRect + theWidth
  134.   set the bottom of newRect = the top of newRect + theHeight
  135.   
  136.   return newRect
  137. end
  138.